VB 高手 来帮帮忙````````````````

来源：百度知道 编辑：UC知道 时间：2024/05/27 05:48:15
使用Print 方法输出图形，程序运行时输出的图形，如图所示
***** *
**** **
*** ***
** ****
* *****

这题怎么回事？？怎么做````

Private Sub Command1_Click()
Dim i%, j%
For i = 1 To 5
For j = 1 To 7
If j = 7 - i Then
Print " ";
Else
Print "*";
End If
Next
Print
Next
End Sub

精简一下可以这样:
Private Sub Command1_Click()
For i = 1 To 5
For j = 1 To 7
Print IIf(j = 7 - i, " ", "*");
Next
Print
Next
End Sub

Dim i As Integer, j As Integer
Private Sub Command1_Click()
For i = 1 To 5
For j = 1 To 6 - i
Print "*";
Next j
Print " ";
For k = 1 To i
Print "*";
Next k
Print
Next i
End Sub